Código fuente de 'Asigna cookies.asp'
<html>
<head>
<title>Asigna cookies - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Asigna cookies</font></b></p>
<br>
<br>
<body style="font-family: Arial; font-size: 11pt">
'Aquí tienes un código que asigna una cookie y que además se asegura de que ha sido asignada.
<%
Response.Expires=0
strCookie = Request.Cookies("COOKIE")
strTry = Request.QueryString("Try")
If IsNull(strCookie) OR ( Len(strCookie) = 0) Then
' Comprobar if esto es una redirección después de que la cookie
' haya sido establecida
If IsNull(strTry) OR (Len(strTry) = 0) Then
Response.Cookies("COOKIE") = "Set"
' Redirigir a esta página y probar otra vez.
Response.Redirect("Asigna cookies.asp?Try=Yes")
Else
' Navegador/usuario no aceptaba cookies
' Hacer algo... (redirigir a astalaweb.com)
Response.Redirect("http://www.astalaweb.com")
End If
End If
%>
<p><%<br>
<i>Response.Expires=0<br>
<br>
strCookie = Request.Cookies("COOKIE")<br>
strTry = Request.QueryString("Try")<br>
<br>
<br>
If IsNull(strCookie) OR ( Len(strCookie) = 0) Then<br>
<br>
' Comprobar if esto es una redirección después de que la cookie<br>
' haya sido establecida<br>
<br>
If IsNull(strTry) OR (Len(strTry) = 0) Then<br>
<br>
Response.Cookies("COOKIE") = "Set"<br>
<br>
' Redirigir a esta página y probar otra vez.<br>
Response.Redirect("Asigna cookies.asp?Try=Yes")<br>
Else<br>
<br>
' Navegador/usuario no aceptaba cookies<br>
' Hacer algo... (redirigir a astalaweb.com)<br>
<br>
Response.Redirect("http://www.astalaweb.com")<br>
<br>
End If<br>
End If</i><br>
%></p>
</body>
</html>